﻿''' <summary>
''' 文件信息综合类
''' </summary>
''' <remarks></remarks>
<Serializable()> Public Class FileUpperAirCommunication
    Implements ICloneable

    ''' <summary>
    ''' 文件信息类 (UpperAirStations)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_UpperAirStations As New UpperAirStations
    ''' <summary>
    ''' TD6201格式 结构类
    ''' </summary>
    ''' <remarks></remarks>
    Private m_StructureUpAir(-1) As StructureUpAir
    ''' <summary>
    ''' 文件信息类 (UpperAirStations)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property UpperAirStations() As UpperAirStations
        Get
            Return Me.m_UpperAirStations
        End Get
        Set(ByVal value As UpperAirStations)
            Me.m_UpperAirStations = value
        End Set
    End Property
    ''' <summary>
    ''' TD6201格式 结构类
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property ArrStructureUpAir() As StructureUpAir()
        Get
            Return Me.m_StructureUpAir
        End Get
        Set(ByVal value As StructureUpAir())
            Me.m_StructureUpAir = value
        End Set
    End Property

    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim obj As New FileUpperAirCommunication
        obj.UpperAirStations = Me.m_UpperAirStations.Clone
        ReDim obj.m_StructureUpAir(Me.m_StructureUpAir.Length - 1)
        For i As Integer = 0 To Me.m_StructureUpAir.Length - 1
            obj.m_StructureUpAir(i) = Me.m_StructureUpAir(i)
        Next
        Return obj
    End Function
End Class
